** Appendix Figure G.1

use "$project_path/data/4_regdata/dynamics/regdata_dynamics", clear
keep if Country=="Brazil" & Year==2014 & Type_Election=="Presidential"
gen obs_year = Year + relative_year
keep if inrange(obs_year, 2010, 2018)
line diff_m1_chix_econ obs_year, ylabel(, angle(0) labsize(large)) graphregion(color(white))  xlabel(2010/2018, labsize(large) angle(45)) xtitle("") ytitle("") title("Economic performance", size(large) placement(9) span) xline(2013.5, lpattern(dash) lwidth(*3) lcolor(gray)) lwidth(*3)
graph export "$project_path/output/appendix_figures/Appendix_Figure_G1a.pdf", as(pdf) name("Graph") replace
line diff_m1_general_chix obs_year, ylabel(, angle(0) labsize(large)) graphregion(color(white))  xlabel(2010/2018, labsize(large) angle(45)) xtitle("") ytitle("") title("General index", size(large) placement(9) span) xline(2013.5, lpattern(dash) lwidth(*3) lcolor(gray)) lwidth(*3)
graph export "$project_path/output/appendix_figures/Appendix_Figure_G1b.pdf", as(pdf) name("Graph") replace

** Appendix Figure G.2

use "$project_path/data/4_regdata/dynamics/regdata_dynamics", clear
keep if Country=="FRG/Germany" & Year==2005 & Type_Election=="Parliamentary"
gen obs_year = Year + relative_year
keep if inrange(obs_year, 2001, 2009)
line diff_m1_chix_econ obs_year, ylabel(, angle(0) labsize(large)) graphregion(color(white))  xlabel(2001/2009, labsize(large) angle(45)) xtitle("") ytitle("") title("Economic performance", size(large) placement(9) span) xline(2004.5, lpattern(dash) lwidth(*3) lcolor(gray)) lwidth(*3)
graph export "$project_path/output/appendix_figures/Appendix_Figure_G2a.pdf", as(pdf) name("Graph") replace
line diff_m1_general_chix obs_year, ylabel(, angle(0) labsize(large)) graphregion(color(white))  xlabel(2001/2009, labsize(large) angle(45)) xtitle("") ytitle("") title("General index", size(large) placement(9) span) xline(2004.5, lpattern(dash) lwidth(*3) lcolor(gray)) lwidth(*3)
graph export "$project_path/output/appendix_figures/Appendix_Figure_G2b.pdf", as(pdf) name("Graph") replace

** Appendix Figure G.3

use "$project_path/data/4_regdata/dynamics/regdata_dynamics", clear
keep if Country=="USA" & Year==1992 & Type_Election=="Presidential"
gen obs_year = Year + relative_year
keep if inrange(obs_year, 1988, 1996)
line diff_m1_chix_econ obs_year, ylabel(, angle(0) labsize(large)) graphregion(color(white))  xlabel(1988/1996, labsize(large) angle(45)) xtitle("") ytitle("") title("Economic performance", size(large) placement(9) span) xline(1991.5, lpattern(dash) lwidth(*3) lcolor(gray)) lwidth(*3)
graph export "$project_path/output/appendix_figures/Appendix_Figure_G3a.pdf", as(pdf) name("Graph") replace
line diff_m1_general_chix obs_year, ylabel(, angle(0) labsize(large)) graphregion(color(white))  xlabel(1988/1996, labsize(large) angle(45)) xtitle("") ytitle("") title("General index", size(large) placement(9) span) xline(1991.5, lpattern(dash) lwidth(*3) lcolor(gray)) lwidth(*3)
graph export "$project_path/output/appendix_figures/Appendix_Figure_G3b.pdf", as(pdf) name("Graph") replace

** Appendix Figure G.4

use "$project_path/data/4_regdata/dynamics/regdata_dynamics", clear
keep if Country=="Israel" & Year==1992 & Type_Election=="Parliamentary"
gen obs_year = Year + relative_year
keep if inrange(obs_year, 1988, 1996)
line diff_m1_chix_econ obs_year, ylabel(, angle(0) labsize(large)) graphregion(color(white))  xlabel(1988/1996, labsize(large) angle(45)) xtitle("") ytitle("") title("Economic performance", size(large) placement(9) span) xline(1991.5, lpattern(dash) lwidth(*3) lcolor(gray)) lwidth(*3)
graph export "$project_path/output/appendix_figures/Appendix_Figure_G4a.pdf", as(pdf) name("Graph") replace
line diff_m1_general_chix obs_year, ylabel(, angle(0) labsize(large)) graphregion(color(white))  xlabel(1988/1996, labsize(large) angle(45)) xtitle("") ytitle("") title("General index", size(large) placement(9) span) xline(1991.5, lpattern(dash) lwidth(*3) lcolor(gray)) lwidth(*3)
graph export "$project_path/output/appendix_figures/Appendix_Figure_G4b.pdf", as(pdf) name("Graph") replace


